VERSION 5.00
Begin VB.Form frmAdvanced 
   BackColor       =   &H80000012&
   Caption         =   "You are now an ADVANCED USER"
   ClientHeight    =   1650
   ClientLeft      =   240
   ClientTop       =   5115
   ClientWidth     =   4680
   Icon            =   "frmAdvanced.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   1650
   ScaleWidth      =   4680
   Begin VB.CommandButton Command1 
      Caption         =   "No I am a  winp and i don't want to get in trouble so i don't want full access!!!!"
      Height          =   495
      Left            =   1680
      TabIndex        =   1
      Top             =   1080
      Width           =   2895
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "OK"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   1080
      Width           =   1215
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000007&
      Caption         =   $"frmAdvanced.frx":000C
      ForeColor       =   &H000000FF&
      Height          =   975
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   4095
   End
Attribute VB_Name = "frmAdvanced"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOk_Click()
 frmdoors99.Image1.Visible = True
    frmdoors99.Image2.Visible = True
    frmdoors99.Image3.Visible = True
    frmdoors99.Image4.Visible = True
    frmdoors99.Image5.Visible = True
    frmdoors99.imgNetscape.Visible = True
    frmdoors99.imgPaint.Visible = True
    frmdoors99.imgExplorer.Visible = True
    frmdoors99.Label1.Visible = True
    frmdoors99.Label2.Visible = True
    frmdoors99.Label3.Visible = True
    frmdoors99.Label4.Visible = True
    frmdoors99.Label5.Visible = True
    frmdoors99.Label6.Visible = True
    frmdoors99.Label7.Visible = True
    frmdoors99.Label8.Visible = True
    frmdoors99.Label9.Visible = True
frmAdvanced.Hide
End Sub
Private Sub Command1_Click()
frmAdvanced.Hide
End Sub